﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<!--#include file="conn.asp"-->
<%	
select case v
case "0"
we0="<br/>"
%>
<card id="main" title="黄历查询"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
%>
<title>黄历查询</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>
<%=dao%>=黄历查询结果=<%=we0%><%=we%>
<%
	if request("act")<>"xrz" then
y=request("y")
m=request("m")
d=request("d")
word=request("word")
if y<>"" and m<>"" and d<>"" then
cxdate=y&"-"&m&"-"&d
end if
if cxdate="" then
cxdate=date
end if
set rs=server.createobject("adodb.recordset")
Sql="select * from hdrl where gn = #"&cxdate&"#"
rs.open sql,connnn,1,1
%> 
今日黄历：<%=cxdate%> 农历<%=rs("nn")%><%=we0%><%=sou%>
岁次：   <%=rs("suici")%><%=we0%><%=we%>
每日胎神占方：   <%=rs("tszf")%><%=we0%><%=sou%>
五行：   <%=rs("wuhang")%><%=we0%><%=dao%>
<img src="ic01.gif" alt='' noselect = 'true'/><%=rs("cong")%><%=we0%><%=we%>
彭祖百忌：   <%=rs("pzbj")%><%=we0%><%=we%>
吉神宜趋：   <%=rs("jsyq")%><%=we0%><%=dao%>
<img src="ic02.gif" alt='' noselect = 'true'/><%=rs("yi")%><%=we0%><%=we%>
凶神宜忌：   <%=rs("xsyq")%><%=we0%><%=dao%>
<img src="ic03.gif" alt='' noselect = 'true'/><%=rs("ji")%>
<%else
upto=request("upto")
tp=request("tp")
word=request("word")
if tp=0 then
cxbiao="yi"
else
cxbiao="ji"
end if
tdate=year(date())&"-"&month(date())
set rs=server.createobject("adodb.recordset")
Sql="select * from hdrl where "&cxbiao&" like '%"&word&"%' and gn>#"&date&"# and datediff('d',date(),gn)<"&upto+1&""
rs.open sql,connnn,1,1
if rs.eof then%>
从<%=date()%>开始<%=upto%>天内，没有符合要求 "<%=word%>" 的记录
<%
else
allshu=rs.recordcount
rs.pagesize=MaxPerPage 
mpage=rs.pagecount     
rs.move  (currentPage-1)*MaxPerPage
i=0
%>
从<%=date()%>开始<%=upto%>天内，共有<%=allshu%>个日子符合要求 "<%=word%>"  <%if allshu>20 then%>本页只列出最近20个记录<%end if%><br/>
<%
do while not rs.eof
  i=i+1  
%><%=i%>
<a href=chak.asp?y=<%=year(rs("gn"))%>&m=<%=month(rs("gn"))%>&d=<%=day(rs("gn"))%>&word=<%=word%>>公元<%=rs("gn")%> , 农历 <%=rs("nn")%></a><br/>
<img src="ic01.gif" alt='' noselect = 'true'/><%=rs("cong")%><br/>
<img src="ic02.gif" alt='' noselect = 'true'/><%=rs("yi")%><br/>
<img src="ic03.gif" alt='' noselect = 'true'/><%=rs("ji")%>
<%
if i>=20 then exit do
 rs.movenext
 loop 
   end if
%> 
  <%end if%>
<%=we0%><%=sou%>
=<a href='non.asp?sid=<%=sidd%>'>黄历名词解释</a>=<br/>
----------<%=we0%><%=we%>
<%
Response.Write("<a href='index.asp?sid=" & sidd & "'>返回上级</a>")
Response.Write we0
end Function
%>
<!--#include file="function.asp"-->